home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr18 / ter99.zip / PASCAL._XE / PHONE.38 < prev    next >
Text File  |  1993-05-03  |  5KB  |  83 lines
  1. {--------------------------------------------------------------------------}
  2. {                                                                          }
  3. {                   -=> Terminate Phone directory  <=-                     }
  4. {                                                                          }
  5. {   The phonebook has first one PhoneHeadRec, and then up to 500 PhoneRec  }
  6. {                                                                          }
  7. {  Structure is copyrighted material and may not be changed by other than  }
  8. {                        the author: Bo Bendtsen                           }
  9. {                                                                          }
  10. {--------------------------------------------------------------------------}
  11.  
  12. Const
  13.   MaxNumbers = 500;
  14.  
  15. Type
  16.  
  17.     PhoneRec38 = Record
  18.                    Name       : String[30]; { Name of system                 }
  19.                    Number     : String[25]; { Number to call                 }
  20.                    Baud       : LongInt;    { Baudrate to use                }
  21.                    Parity     : Char;       { Parity to use                  }
  22.                    DataBits,                { Databits to use                }
  23.                    StopBits   : Byte;       { Stopbits to use                }
  24.                    Script     : String[8];  { Script to use at connect       }
  25.                    Terminal,                { Emulation to use               }
  26.                    Protocol,                { Protocol to use as default     }
  27.                    DialPrefix : Byte;       { Dialprefix                     }
  28.                    Password   : String[24]; { Password to use                }
  29.                    Open,Closed: Word;       { Opening hours 20:30 = 20*60+30 }
  30.                    User       : Byte;       { Username to use                }
  31.                    Comment1,                { Note 1                         }
  32.                    Comment2   : String[40]; { Note 2                         }
  33.                    AutoLogon  : Byte;       { Autologon style                }
  34.                    LogonChar  : Char;       { Used by autologon              }
  35.                    Translate,               { Translation table              }
  36.                    Capture,                 { Default capture file           }
  37.                    Note       : String[8];  { A file containing notes        }
  38.  
  39.                    LocalEcho,               { Turn on local echo             }
  40.                    StripHigh,               { Strip above 127 from incoming  }
  41.                    RcvdBSdest : Boolean;    { Backspace destroyes            }
  42.                    Color      : Byte;       { Attribute of entry             }
  43.  
  44.                    { Statistics }
  45.                    JulDate,                 { Julian date of last connect    }
  46.                    CalcMin,                 { Time of last con. Hour*60+min  }
  47.                    Connects   : Word;       { Number of connects             }
  48.                    SecUsed,                 { Seconds used on system         }
  49.                    UploadKb,                { Kilobytes of uploads           }
  50.                    DownloadKb,              { Kilobytes of downloads         }
  51.                    Costs,                   { Total money used on system     }
  52.                    LastCosts  : LongInt;    { Used this month                }
  53.                  End;
  54.  
  55.  
  56. PhoneHeadRec38 = Record
  57.                    Encrypted  : Boolean;    { Is phonebook encrypted         }
  58.                    Seed       : Longint;    { Key to decrypt entries         }
  59.                    Version    : String[5];  { Version is Terminate           }
  60.                    Comment    : String[30]; { Phonebook note                 }
  61.                    Num        : Integer;    { Total entries                  }
  62.                    CurMonth   : Byte;       { Current month                  }
  63.                    MonthCosts : Array[1..12]{ For keeping track of how much  }
  64.                                 of Longint; { money used a hole year back    }
  65.                    PhonePos   : Integer;    { Last entry processed           }
  66.                    ScrPos,                  { Where on screen is menubar     }
  67.                    WritePos   : Byte;       { Last pos for left/right cursor }
  68.                    RangeStart,              { Last Range Start               }
  69.                    RangeStop  : Integer;    { Last Range stop                }
  70.                  End;
  71.  
  72.    PhoneType38 = Record
  73.                    Tag  : Boolean;
  74.                    P    : PhoneRec38;
  75.                  End;
  76.  
  77. Var
  78.   PHead38      : PhoneHeadRec38;
  79.   Ph38         : Array[0..MaxNumbers] of ^PhoneType38;
  80.  
  81.                  { Record 0 is used for manual dialing }
  82.  
  83.